home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / tests / focus.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  757 b   |  32 lines
  1. # CVS $Id: focus.tcl,v 1.3 1995/02/03 16:54:37 zibi Exp $
  2. #
  3. # Simple test of VtSetFocus, with various objects
  4. #@(#) focus.tcl 11.3 95/01/31 
  5.  
  6. proc focusCB {target cbs} {
  7.     VtSetFocus $target
  8. }
  9.  
  10. set ap [VtOpen focus]
  11.  
  12. set dlog [VtFormDialog $ap.form]
  13.  
  14. set rc0 [VtRowColumn $dlog.rc0 -vertical]
  15.  
  16. set rc1 [VtRowColumn $dlog.rc1 -vertical -leftSide $rc0 -alignTop $rc0]
  17.  
  18. set lab [VtLabel $rc1.lab ]
  19. set txt [VtText $rc1.text]
  20. set pb  [VtPushButton $rc1.pb]
  21.  
  22.  
  23. VtPushButton $rc0.pb1 -label "VtLabel"      -callback "focusCB $lab"
  24. VtPushButton $rc0.pb2 -label "VtText"       -callback "focusCB $txt"
  25. VtPushButton $rc0.pb3 -label "VtPushButton" -callback "focusCB $pb"
  26. VtPushButton $rc0.quit -label Quit -callback { VtClose ;exit 0 ;#}
  27.  
  28. VtShow $dlog
  29.  
  30. VtMainLoop
  31.  
  32.